home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / util / cli / mykinf.lha / inf25 / Install Inf < prev   
Encoding:
Text File  |  1995-04-06  |  2.6 KB  |  98 lines
  1. ; An installer test
  2.  
  3. (set ProductName "Inf")
  4. (set VersionNum "2.5")
  5. (set OSVersion (/ (getversion) 65536))
  6.  
  7. (welcome "Welcome to the Inf Installer!!!!\n" )
  8.  
  9. (if (< OSVersion 37)
  10. (
  11.    (abort "You must be using Kickstart 2.04 to use " ProductName)
  12. ))
  13.  
  14. (complete 0)
  15.  
  16. (set @default-dest
  17.    (askdir
  18.       (prompt "Where do you want to install the " ProductName " executable?")
  19.       (help @askdir-help)
  20.       (default "c:")
  21.    )
  22. )
  23.  
  24. (working "Working...")
  25.  
  26. (copyfiles
  27.    (prompt "Copying " ProductName "...")
  28.    (source "" )
  29.    (dest @default-dest)
  30.    (pattern "(Inf)")
  31.    (help @copyfiles-help)
  32. )
  33.  
  34. (complete 50)
  35.  
  36. (if
  37.    (askbool
  38.       (prompt "Do you want to copy the manual/docs and related files?")
  39.       (help "This program includes some documents/help files. If you want "
  40.             "to install them select YES, you will then be asked to choose "
  41.             "the destination directory, then wether you want the icons to "
  42.             "be copied, then you can select "
  43.             "which files you want to copy. If you select NO the files will "
  44.             "not be copied.")
  45.       (default 1)
  46.    )
  47.    (
  48.       (set DESTINATION
  49.          (askdir
  50.             (prompt "Where do you want the manual and related files?")
  51.             (help @askdir-help)
  52.             (default "man:")
  53.          )
  54.       )
  55.  
  56.       (if
  57.          (askbool
  58.             (prompt "Do you want to copy the icons as well?")
  59.             (help "Some of the files have icons. Select No if you do not "
  60.                   "want to copy them.")
  61.             (default 1)
  62.           )
  63.  
  64.          (copyfiles
  65.             (prompt "Copying...")
  66.             (source "" )
  67.             (dest DESTINATION)
  68.             (choices "Inf.guide" "Inf.e" "InfWin.ilbm")
  69.             (infos)
  70.             (confirm average)
  71.             (help "You can choose which files you want to install by "
  72.                   "setting the check boxes.\n\n"
  73.                   "The files are as follows:\n"
  74.                   "Inf.guide   - The main Amiga Guide Document\n"
  75.                   "Inf.e       - The Source Code\n"
  76.                   "InfWin.ilbm - An Example picture\n\n"
  77.                   "If you do not copy all the files some of the links "
  78.                   "in the Amiga Guide document will not work, however "
  79.                   "the guide will remain usable.")
  80.          )
  81. ; Else Don't copy Icons..
  82.  
  83.          (copyfiles
  84.             (prompt "Copying...")
  85.             (source "" )
  86.             (dest DESTINATION)
  87.             (choices "Inf.guide" "Inf.e" "InfWin.ilbm")
  88.             (confirm average)
  89.             (help @copyfiles-help)
  90.          )
  91.       )  ; End of If Copy Icons
  92.    )
  93. )
  94.  
  95. (complete 100)
  96.  
  97. (exit "Bye Bye, I Hope you find " ProductName " " VersionNum " useful")
  98.